;;;Inserts REVTXLR.DWG, Revision Box for Lower Right corner of sheet.  (see REVS)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-19-96
;;;	Edited:		6-19-96
;;;
(defun c:revtxt ( / revlocn)
  (setq
        atreq (getvar"attreq")
        atdia (getvar"attdia")
  )
  (setvar "attreq" 0)
  (setvar "attdia" 1)
  (if dimscl nil (load "dimscl" "\nFile DIMSCL.LSP not loaded! "))
  (dimscl)
  (if upoint nil (load "upoint" "\nFile UPOINT.LSP not loaded! "))
  (if ukword nil (load "ukword" "\nFile UKWORD.LSP not loaded! "))
  (if revblkt
    (progn
      (setq mpb "0,0");(upoint 1 "" " Insertion point" nil nil))
      (command ".insert" revblkt mpb dimsc dimsc "0")
      (setq rtblst (cdar(entget(entlast))))
      (command ".ddatte" rtblst)
    );progn
    (progn
      (setq revlocn (ukword 1 "Top Bottom Cancel" "Top, Bottom or Cancel revision block text?" "Bottom"))
      (if(eq revlocn "Bottom")
        (setq revblkt "revtxlr")
        (if(eq revlocn "Top")
          (setq revblkt "revtxur")
          (setq revblkt nil)
        );if
      );if
      (if revblkt
        (progn
          (setq mpb (upoint 1 "" " Insertion point" nil nil))
          (command ".insert" revblkt mpb dimsc dimsc "0")
          (setq rtblst (cdar(entget(entlast))))
          (command ".ddatte" rtblst)
        );progn
        (princ "\nRevision block text canceled. ")
      );if
    );progn
  );if
  (setvar "attreq" atreq)
  (setvar "attdia" atdia)
  (setq revblkt nil)
  (princ)
);defun
